home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / OVER75.SRC < prev    next >
Text File  |  1990-11-04  |  3KB  |  181 lines
  1. ;\|
  2. ;OVER75.SRC     Translated from OVER75.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;OVER75   01:11:50 PM   9/ 4/90                    |
  4. ;Program generated with the database file lister|
  5. define(PAGE|N|5|0|)
  6. define(DATE.TIME.FLD|A|46||)
  7. define(TOT.RECS|N|8|0|)
  8. define(CHG.TIME|T|8||)
  9. define(CHG.DATE|D|10||)
  10. define(STDDAYS|A|12||)
  11. define(STDMONTH|A|12||)
  12. define(STDYEAR|A|6||)
  13. define(STDAYH|A|4||)
  14. define(AM.PM|A|2||)
  15. define(TIME.STRG|A|10||)
  16. define(PG.STRG|A|5||)
  17. define(SELECT.FLD.F1|D| 10||)
  18. define(SELECT.FLD.T1|D| 10||)
  19. define(SELECT.FLD.F2|N|  1|0|)
  20. define(SELECT.FLD.T2|N|  1|0|)
  21. pchr(P|10)
  22. pchr(P|11)
  23. pchr(P|4)
  24. clrscr
  25. clrlne(1|25)
  26. open(PATIENT |||)
  27. gosub GET.DATE
  28. mount(SELECT|S||)
  29. trap(q|g|exit)
  30. enter(SELECT.FLD.F1||||||||)
  31. enter(SELECT.FLD.T1||||||||)
  32. enter(SELECT.FLD.F2||||||||)
  33. enter(SELECT.FLD.T2||||||||)
  34. trap(P|G|TOF)
  35. mount(REPORT|R|P)
  36. pset(128|66|60)
  37. pchr(P|4)
  38. trap(I|G|FINI)
  39. find(B|PATIENT.NAME   |NO.RECS)
  40. PRT.REC:
  41. if SELECT.FLD.F1 <> (0) then if SELECT.FLD.F1 > (DATE.OF.BIRTH) goto RD.NEXT
  42. if SELECT.FLD.T1 <> (0) then if SELECT.FLD.T1 < (DATE.OF.BIRTH) goto RD.NEXT
  43. if SELECT.FLD.F2 <> (0) then if SELECT.FLD.F2 > (DOCTOR) goto RD.NEXT
  44. if SELECT.FLD.T2 <> (0) then if SELECT.FLD.T2 < (DOCTOR) goto RD.NEXT
  45. pfmt(6||||)
  46. TOT.RECS = (TOT.RECS + 1)
  47. RD.NEXT:
  48. find(N|PATIENT |FINI)
  49. goto PRT.REC
  50. FINI:
  51. pfmt(5||||)
  52. pfmt(8||||)
  53. pblnk(2)
  54. pfmt(7||||)
  55. trap(P|D|)
  56. ptof
  57. run("recmenu"|)
  58. TOF:
  59. PAGE = (PAGE + 1)
  60. pfmt(1||||)
  61. pfmt(2||||)
  62. pfmt(3||||)
  63. pblnk(1)
  64. pfmt(4||||)
  65. pfmt(5||||)
  66. ret
  67. GET.DATE:
  68. time(CHG.TIME|G)
  69. date(CHG.DATE|G)
  70. AM.PM = ("AM")
  71. if CHG.TIME > (43199) doO
  72. {
  73. AM.PM = ("PM")
  74. if CHG.TIME > (46799) then CHG.TIME = (CHG.TIME - 43200)
  75. }
  76. TIME.STRG =mid(CHG.TIME|1|8|)
  77. STDDAYS =day(CHG.DATE)
  78. STDMONTH =xmt(CHG.DATE)
  79. STDAYH =mid(CHG.DATE|4|2|)
  80. STDYEAR =mid(CHG.DATE|7|4|)
  81. PG.STRG = (PAGE)
  82. DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  83. ret
  84. NO.RECS:
  85. pmsg("There are no records in the PATIENT  file "|1|24|Y|||)
  86. EXIT:
  87. run("recmenu"|)
  88. \R REPORT  
  89.                                             OVER75 - Database File Listing for: PATIENT
  90.                                      &
  91.                                                         Page # &
  92. PATIENT.NAME                 ADDRESS1                DATE.OF.BIRTH  DOCTOR  TELEPHONE  SEEN     SENT     VISIT
  93. ---------------------------  ----------------------  -------------  ------  ---------  ----     ----     -----
  94. &                            &                       &              &       &          &        &         &
  95. Total number of records printed: &
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137. \
  138. DATE.TIME.FLD
  139. PAGE
  140. PATIENT.NAME
  141. ADDRESS1
  142. DATE.OF.BIRTH
  143. DOCTOR
  144. TELEPHONE
  145. SEEN
  146. SENT_FOR
  147. VISIT
  148. TOT.RECS
  149. \
  150. \STSELECT  
  151. THIS PRINTS OUT THE OVER 75,S BY DOCTOR IF YOU TYPE IN THE CORRECT DOB'S
  152. =========================================================================
  153.  
  154.  DATE.OF.BIRTH
  155.  FROM- &           LOWEST
  156.  THRU- &           HIGHEST
  157.  DOCTOR
  158.  FROM- &  EG FROM=1 THRU=1 FOR DRV
  159.  THRU- &       OR FROM=1 THRU=4 FOR ALL IN NO SPECIFIC ORDER
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175. \
  176. SELECT.FLD.F1
  177. SELECT.FLD.T1
  178. SELECT.FLD.F2
  179. SELECT.FLD.T2
  180. \
  181.